Especial Multimedia/Especial Multimedia.iso/Multimed/Prg/WAVPLUS.ZIP/WDEVICE.WD_/WDEVICE.WD

Text File | 1997-09-14 | 8KB | 253 lines

VERSION 2.00
Begin Form Wdevice
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "WAV Device Info"
   ClientHeight    =   3930
   ClientLeft      =   2220
   ClientTop       =   1545
   ClientWidth     =   3975
   ControlBox      =   0   'False
   Height          =   4335
   Left            =   2160
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3930
   ScaleWidth      =   3975
   Top             =   1200
   Width           =   4095
   Begin CommandButton CmdOkay
      BackColor       =   &H00C0C0C0&
      Cancel          =   -1  'True
      Caption         =   "O &K A Y"
      Default         =   -1  'True
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   3360
      Width           =   3495
   End
   Begin Label Label2
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   7
      Left            =   240
      TabIndex        =   16
      Top             =   2880
      Width           =   3495
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   6
      Left            =   2700
      TabIndex        =   15
      Top             =   2220
      Width           =   1035
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   5
      Left            =   2580
      TabIndex        =   14
      Top             =   1980
      Width           =   1155
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Manufacturer's ID:"
      Height          =   195
      Index           =   7
      Left            =   240
      TabIndex        =   13
      Top             =   2640
      Width           =   3495
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Device Version:"
      Height          =   195
      Index           =   6
      Left            =   240
      TabIndex        =   12
      Top             =   2220
      Width           =   2055
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Volume Control Supported:"
      Height          =   195
      Index           =   5
      Left            =   240
      TabIndex        =   11
      Top             =   1980
      Width           =   2355
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   4
      Left            =   2400
      TabIndex        =   6
      Top             =   1440
      Width           =   1335
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   3
      Left            =   2400
      TabIndex        =   7
      Top             =   1200
      Width           =   1335
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   2
      Left            =   2400
      TabIndex        =   10
      Top             =   960
      Width           =   1335
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   195
      Index           =   1
      Left            =   2400
      TabIndex        =   9
      Top             =   480
      Width           =   1335
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      Height          =   200
      Index           =   0
      Left            =   2400
      TabIndex        =   8
      Top             =   240
      Width           =   1335
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Maximum Sample Rate:"
      Height          =   195
      Index           =   4
      Left            =   240
      TabIndex        =   5
      Top             =   1440
      Width           =   2055
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Maximum Channels:"
      Height          =   195
      Index           =   3
      Left            =   240
      TabIndex        =   4
      Top             =   1200
      Width           =   2055
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Maximum Bit Size:"
      Height          =   195
      Index           =   2
      Left            =   240
      TabIndex        =   3
      Top             =   960
      Width           =   2055
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Can Record WAVs:"
      Height          =   195
      Index           =   1
      Left            =   240
      TabIndex        =   2
      Top             =   480
      Width           =   2055
   End
   Begin Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "Can Play WAVs:"
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   2055
   End
End

Sub CmdOkay_Click ()
    Unload Me
End Sub

Sub Form_Load ()
    FormCenterForm Me, DemoMain
    If HowManyWavPlayDevices() = 0 Then
        CanPlay$ = "False"
        CanRecord$ = "False"
        Channels$ = "0"
        SampleBitSize$ = "0"
        SampleRate$ = "0"
        Else
        CanPlay$ = Space$(255)
        WavCanPlay CanPlay$
        CanRecord$ = Space$(255)
        WavCanRecord CanRecord$
        SampleBitSize$ = Space$(255)
        WavMaxBitSize SampleBitSize$
        Channels$ = Space$(255)
        WavMaxChannels Channels$
        SampleRate$ = Space$(255)
        WavMaxSampleRate SampleRate$
        Manufacturer$ = Space$(255)
        WavManufacturer Manufacturer$
        ret% = WavVolumeSupported()
        If ret% = 0 Then
            VolumeSupport$ = "no"
            Else
            VolumeSupport$ = "yes"
            End If
        ret% = WavVersion()
        SoundVersion$ = Format$(ret% / 100, "##0.00")

        End If
    Label2(0).Caption = CanPlay$
    Label2(1).Caption = CanRecord$
    Label2(2).Caption = SampleBitSize$
    Label2(3).Caption = Channels$
    Label2(4).Caption = SampleRate$
    Label2(5).Caption = VolumeSupport$
    Label2(6).Caption = SoundVersion$
    Label2(7).Caption = Manufacturer$
    Screen.MousePointer = 0
End Sub

Sub Form_Paint ()
    DoForm3D Me, "raised", 2, 0
    DoForm3D Me, "sunken", 2, 2
End Sub